/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Matts-utils.sea / Matts-utils / f-pt-in-scroll.lisp

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 13 66 2d 70 74 2d 69 | 6e 2d 73 63 72 6f 6c 6c |..f-pt-i|n-scroll|
|00000010| 2e 6c 69 73 70 00 00 00 | 00 00 00 00 00 00 00 00 |.lisp...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 0e 2e 00 | 00 01 f4 a6 d2 68 38 a6 |........|.....h8.|
|00000060| d2 68 38 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.h8.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bc cd 00 00 |........|........|
|00000080| 3b 3b 3b 0d 3b 3b 3b 20 | 66 2d 70 74 2d 69 6e 2d |;;;.;;; |f-pt-in-|
|00000090| 73 63 72 6f 6c 6c 2e 6c | 69 73 70 0d 3b 3b 3b 0d |scroll.l|isp.;;;.|
|000000a0| 0d 23 7c 0d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#|.====|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 0d 50 75 72 | 70 6f 73 65 20 3d 3d 3d |====.Pur|pose ===|
|000000f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 0d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=====.==|========|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 0d 44 | 65 66 69 6e 65 73 20 66 |======.D|efines f|
|00000170| 2d 70 74 2d 69 6e 2d 73 | 63 72 6f 6c 6c 2c 20 61 |-pt-in-s|croll, a|
|00000180| 20 68 61 6e 64 79 20 61 | 64 64 69 74 69 6f 6e 20 | handy a|ddition |
|00000190| 74 6f 20 73 65 71 75 65 | 6e 63 65 2d 64 69 61 6c |to seque|nce-dial|
|000001a0| 6f 67 2d 69 74 65 6d 73 | 20 61 6e 64 0d 66 72 65 |og-items| and.fre|
|000001b0| 64 2d 77 69 6e 64 6f 77 | 73 2e 20 54 68 61 6e 6b |d-window|s. Thank|
|000001c0| 73 20 74 6f 20 68 6f 6c | 7a 40 75 72 7a 2e 75 6e |s to hol|z@urz.un|
|000001d0| 69 62 61 73 2e 63 68 20 | 28 44 69 65 74 65 72 20 |ibas.ch |(Dieter |
|000001e0| 48 6f 6c 7a 29 20 66 6f | 72 20 68 65 6c 70 20 77 |Holz) fo|r help w|
|000001f0| 69 74 68 0d 74 68 65 20 | 66 72 65 64 2d 77 69 6e |ith.the |fred-win|
|00000200| 64 6f 77 20 76 65 72 73 | 69 6f 6e 2e 0d 0d 0d 3d |dow vers|ion....=|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000250| 53 74 61 74 75 73 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |Status =|========|
|00000260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 0d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.=======|========|
|000002a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002d0| 3d 0d 49 6d 70 6c 65 6d | 65 6e 74 65 64 2e 0d 0d |=.Implem|ented...|
|000002e0| 0d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.=======|========|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000320| 3d 0d 43 68 61 6e 67 65 | 20 68 69 73 74 6f 72 79 |=.Change| history|
|00000330| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|00000340| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000360| 3d 3d 0d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |==.=====|========|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003a0| 3d 3d 3d 0d 31 38 2d 41 | 75 67 2d 39 32 20 6d 63 |===.18-A|ug-92 mc|
|000003b0| 09 43 72 65 61 74 65 64 | 2e 0d 30 37 2d 53 65 70 |.Created|..07-Sep|
|000003c0| 2d 39 32 20 6d 63 09 44 | 65 66 69 6e 65 64 20 61 |-92 mc.D|efined a|
|000003d0| 20 66 2d 70 74 2d 69 6e | 2d 73 63 72 6f 6c 6c 20 | f-pt-in|-scroll |
|000003e0| 6d 65 74 68 6f 64 20 66 | 6f 72 20 66 72 65 64 2d |method f|or fred-|
|000003f0| 77 69 6e 64 6f 77 73 2e | 0d 0d 7c 23 0d 0d 0d 28 |windows.|..|#...(|
|00000400| 69 6e 2d 70 61 63 6b 61 | 67 65 20 22 43 43 4c 22 |in-packa|ge "CCL"|
|00000410| 29 0d 0d 28 65 78 70 6f | 72 74 20 27 28 46 2d 50 |)..(expo|rt '(F-P|
|00000420| 54 2d 49 4e 2d 53 43 52 | 4f 4c 4c 29 0d 20 20 20 |T-IN-SCR|OLL).   |
|00000430| 20 20 20 20 20 22 43 43 | 4c 22 29 0d 0d 3b 3b 3b |     "CC|L")..;;;|
|00000440| 0d 0d 28 64 65 66 67 65 | 6e 65 72 69 63 20 66 2d |..(defge|neric f-|
|00000450| 70 74 2d 69 6e 2d 73 63 | 72 6f 6c 6c 20 28 73 65 |pt-in-sc|roll (se|
|00000460| 71 75 65 6e 63 65 2d 64 | 69 61 6c 6f 67 2d 69 74 |quence-d|ialog-it|
|00000470| 65 6d 20 70 74 2d 6c 6f | 63 61 6c 2d 74 6f 2d 63 |em pt-lo|cal-to-c|
|00000480| 6f 6e 74 61 69 6e 65 72 | 29 0d 20 20 28 3a 64 6f |ontainer|).  (:do|
|00000490| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 22 52 65 74 |cumentat|ion "Ret|
|000004a0| 75 72 6e 73 20 6e 6f 6e | 2d 6e 69 6c 20 77 68 65 |urns non|-nil whe|
|000004b0| 6e 20 70 74 2d 6c 6f 63 | 61 6c 2d 74 6f 2d 63 6f |n pt-loc|al-to-co|
|000004c0| 6e 74 61 69 6e 65 72 20 | 69 73 20 69 6e 20 65 69 |ntainer |is in ei|
|000004d0| 74 68 65 72 0d 73 65 71 | 75 65 6e 63 65 2d 64 69 |ther.seq|uence-di|
|000004e0| 61 6c 6f 67 2d 69 74 65 | 6d 27 73 20 76 65 72 74 |alog-ite|m's vert|
|000004f0| 69 63 61 6c 20 6f 72 20 | 68 6f 72 69 7a 6f 6e 74 |ical or |horizont|
|00000500| 61 6c 20 73 63 72 6f 6c | 6c 62 61 72 2e 22 29 29 |al scrol|lbar."))|
|00000510| 0d 0d 0d 3b 3b 3b 20 44 | 65 66 69 6e 65 20 61 20 |...;;; D|efine a |
|00000520| 6d 65 74 68 6f 64 20 66 | 6f 72 20 73 65 71 75 65 |method f|or seque|
|00000530| 6e 63 65 2d 64 69 61 6c | 6f 67 2d 69 74 65 6d 73 |nce-dial|og-items|
|00000540| 2e 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 66 2d |...(defm|ethod f-|
|00000550| 70 74 2d 69 6e 2d 73 63 | 72 6f 6c 6c 20 28 28 73 |pt-in-sc|roll ((s|
|00000560| 65 71 75 65 6e 63 65 2d | 64 69 61 6c 6f 67 2d 69 |equence-|dialog-i|
|00000570| 74 65 6d 20 73 65 71 75 | 65 6e 63 65 2d 64 69 61 |tem sequ|ence-dia|
|00000580| 6c 6f 67 2d 69 74 65 6d | 29 0d 20 20 20 20 20 20 |log-item|).      |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005a0| 20 20 20 20 28 70 74 2d | 6c 6f 63 61 6c 2d 74 6f |    (pt-|local-to|
|000005b0| 2d 63 6f 6e 74 61 69 6e | 65 72 20 69 6e 74 65 67 |-contain|er integ|
|000005c0| 65 72 29 29 0d 20 20 28 | 64 65 63 6c 61 72 65 20 |er)).  (|declare |
|000005d0| 28 6f 70 74 69 6d 69 7a | 65 20 73 70 65 65 64 29 |(optimiz|e speed)|
|000005e0| 29 0d 20 20 3b 3b 0d 20 | 20 28 6c 65 74 2a 20 28 |).  ;;. | (let* (|
|000005f0| 28 66 2d 68 2d 73 63 72 | 6f 6c 6c 2d 62 61 72 20 |(f-h-scr|oll-bar |
|00000600| 28 74 61 62 6c 65 2d 68 | 73 63 72 6f 6c 6c 70 20 |(table-h|scrollp |
|00000610| 73 65 71 75 65 6e 63 65 | 2d 64 69 61 6c 6f 67 2d |sequence|-dialog-|
|00000620| 69 74 65 6d 29 29 0d 20 | 20 20 20 20 20 20 20 20 |item)). |        |
|00000630| 28 66 2d 76 2d 73 63 72 | 6f 6c 6c 2d 62 61 72 20 |(f-v-scr|oll-bar |
|00000640| 28 74 61 62 6c 65 2d 76 | 73 63 72 6f 6c 6c 70 20 |(table-v|scrollp |
|00000650| 73 65 71 75 65 6e 63 65 | 2d 64 69 61 6c 6f 67 2d |sequence|-dialog-|
|00000660| 69 74 65 6d 29 29 0d 20 | 20 20 20 20 20 20 20 20 |item)). |        |
|00000670| 28 70 74 2d 62 6f 74 2d | 72 69 67 68 74 20 28 61 |(pt-bot-|right (a|
|00000680| 64 64 2d 70 6f 69 6e 74 | 73 20 28 76 69 65 77 2d |dd-point|s (view-|
|00000690| 70 6f 73 69 74 69 6f 6e | 20 73 65 71 75 65 6e 63 |position| sequenc|
|000006a0| 65 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 29 0d 20 |e-dialog|-item). |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006d0| 20 20 28 76 69 65 77 2d | 73 69 7a 65 20 73 65 71 |  (view-|size seq|
|000006e0| 75 65 6e 63 65 2d 64 69 | 61 6c 6f 67 2d 69 74 65 |uence-di|alog-ite|
|000006f0| 6d 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 28 69 |m))).   |      (i|
|00000700| 6e 74 2d 70 74 2d 68 20 | 28 70 6f 69 6e 74 2d 68 |nt-pt-h |(point-h|
|00000710| 20 70 74 2d 6c 6f 63 61 | 6c 2d 74 6f 2d 63 6f 6e | pt-loca|l-to-con|
|00000720| 74 61 69 6e 65 72 29 29 | 0d 20 20 20 20 20 20 20 |tainer))|.       |
|00000730| 20 20 28 69 6e 74 2d 70 | 74 2d 76 20 28 70 6f 69 |  (int-p|t-v (poi|
|00000740| 6e 74 2d 76 20 70 74 2d | 6c 6f 63 61 6c 2d 74 6f |nt-v pt-|local-to|
|00000750| 2d 63 6f 6e 74 61 69 6e | 65 72 29 29 0d 20 20 20 |-contain|er)).   |
|00000760| 20 20 20 20 20 20 28 66 | 2d 70 74 2d 69 6e 2d 76 |      (f|-pt-in-v|
|00000770| 2d 73 63 72 6f 6c 6c 2d | 62 61 72 20 28 61 6e 64 |-scroll-|bar (and|
|00000780| 20 66 2d 76 2d 73 63 72 | 6f 6c 6c 2d 62 61 72 0d | f-v-scr|oll-bar.|
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007b0| 20 20 20 20 28 3e 3d 20 | 69 6e 74 2d 70 74 2d 68 |    (>= |int-pt-h|
|000007c0| 20 28 2d 20 28 70 6f 69 | 6e 74 2d 68 20 70 74 2d | (- (poi|nt-h pt-|
|000007d0| 62 6f 74 2d 72 69 67 68 | 74 29 20 31 36 29 29 29 |bot-righ|t) 16)))|
|000007e0| 29 0d 20 20 20 20 20 20 | 20 20 20 28 66 2d 70 74 |).      |   (f-pt|
|000007f0| 2d 69 6e 2d 68 2d 73 63 | 72 6f 6c 6c 2d 62 61 72 |-in-h-sc|roll-bar|
|00000800| 20 28 61 6e 64 20 66 2d | 68 2d 73 63 72 6f 6c 6c | (and f-|h-scroll|
|00000810| 2d 62 61 72 0d 20 20 20 | 20 20 20 20 20 20 20 20 |-bar.   |        |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000830| 20 20 20 20 20 20 20 20 | 20 28 3e 3d 20 69 6e 74 |        | (>= int|
|00000840| 2d 70 74 2d 76 20 28 2d | 20 28 70 6f 69 6e 74 2d |-pt-v (-| (point-|
|00000850| 76 20 70 74 2d 62 6f 74 | 2d 72 69 67 68 74 29 20 |v pt-bot|-right) |
|00000860| 31 36 29 29 29 29 29 0d | 20 20 20 20 28 6f 72 20 |16))))).|    (or |
|00000870| 66 2d 70 74 2d 69 6e 2d | 76 2d 73 63 72 6f 6c 6c |f-pt-in-|v-scroll|
|00000880| 2d 62 61 72 20 66 2d 70 | 74 2d 69 6e 2d 68 2d 73 |-bar f-p|t-in-h-s|
|00000890| 63 72 6f 6c 6c 2d 62 61 | 72 29 29 29 0d 0d 0d 3b |croll-ba|r)))...;|
|000008a0| 3b 3b 20 44 65 66 69 6e | 65 20 61 20 6d 65 74 68 |;; Defin|e a meth|
|000008b0| 6f 64 20 66 6f 72 20 66 | 72 65 64 2d 77 69 6e 64 |od for f|red-wind|
|000008c0| 6f 77 73 2e 0d 0d 23 7c | 0d 28 64 65 66 6d 65 74 |ows...#||.(defmet|
|000008d0| 68 6f 64 20 66 2d 70 74 | 2d 69 6e 2d 73 63 72 6f |hod f-pt|-in-scro|
|000008e0| 6c 6c 20 28 28 66 72 65 | 64 2d 77 69 6e 64 6f 77 |ll ((fre|d-window|
|000008f0| 20 66 72 65 64 2d 77 69 | 6e 64 6f 77 29 0d 20 20 | fred-wi|ndow).  |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000910| 20 20 20 20 20 20 20 20 | 28 70 74 2d 6c 6f 63 61 |        |(pt-loca|
|00000920| 6c 2d 74 6f 2d 63 6f 6e | 74 61 69 6e 65 72 20 69 |l-to-con|tainer i|
|00000930| 6e 74 65 67 65 72 29 29 | 0d 20 20 28 64 65 63 6c |nteger))|.  (decl|
|00000940| 61 72 65 20 28 6f 70 74 | 69 6d 69 7a 65 20 73 70 |are (opt|imize sp|
|00000950| 65 65 64 29 29 0d 20 20 | 3b 3b 0d 20 20 28 6c 65 |eed)).  |;;.  (le|
|00000960| 74 2a 20 28 28 68 2d 63 | 74 6c 2d 72 65 63 6f 72 |t* ((h-c|tl-recor|
|00000970| 64 2d 76 73 63 72 6f 6c | 6c 20 28 73 6c 6f 74 2d |d-vscrol|l (slot-|
|00000980| 76 61 6c 75 65 20 66 72 | 65 64 2d 77 69 6e 64 6f |value fr|ed-windo|
|00000990| 77 20 27 63 63 6c 3a 3a | 76 73 63 72 6f 6c 6c 29 |w 'ccl::|vscroll)|
|000009a0| 29 0d 20 20 20 20 20 20 | 20 20 20 28 68 2d 63 74 |).      |   (h-ct|
|000009b0| 6c 2d 72 65 63 6f 72 64 | 2d 68 73 63 72 6f 6c 6c |l-record|-hscroll|
|000009c0| 20 28 73 6c 6f 74 2d 76 | 61 6c 75 65 20 66 72 65 | (slot-v|alue fre|
|000009d0| 64 2d 77 69 6e 64 6f 77 | 20 27 63 63 6c 3a 3a 68 |d-window| 'ccl::h|
|000009e0| 73 63 72 6f 6c 6c 29 29 | 29 0d 20 20 20 20 28 77 |scroll))|).    (w|
|000009f0| 69 74 68 2d 64 65 72 65 | 66 65 72 65 6e 63 65 64 |ith-dere|ferenced|
|00000a00| 2d 68 61 6e 64 6c 65 73 | 20 28 28 70 2d 63 74 6c |-handles| ((p-ctl|
|00000a10| 2d 72 65 63 2d 76 73 63 | 72 6f 6c 6c 20 68 2d 63 |-rec-vsc|roll h-c|
|00000a20| 74 6c 2d 72 65 63 6f 72 | 64 2d 76 73 63 72 6f 6c |tl-recor|d-vscrol|
|00000a30| 6c 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |l).     |        |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a50| 20 20 20 28 70 2d 63 74 | 6c 2d 72 65 63 2d 68 73 |   (p-ct|l-rec-hs|
|00000a60| 63 72 6f 6c 6c 20 68 2d | 63 74 6c 2d 72 65 63 6f |croll h-|ctl-reco|
|00000a70| 72 64 2d 68 73 63 72 6f | 6c 6c 29 29 0d 20 20 20 |rd-hscro|ll)).   |
|00000a80| 20 20 20 28 6c 65 74 2a | 20 28 28 70 2d 63 74 6c |   (let*| ((p-ctl|
|00000a90| 2d 72 65 63 74 2d 76 73 | 63 72 6f 6c 6c 0d 20 20 |-rect-vs|croll.  |
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 72 72 65 |        |    (rre|
|00000ab0| 66 20 70 2d 63 74 6c 2d | 72 65 63 2d 76 73 63 72 |f p-ctl-|rec-vscr|
|00000ac0| 6f 6c 6c 20 3a 63 6f 6e | 74 72 6f 6c 52 65 63 6f |oll :con|trolReco|
|00000ad0| 72 64 2e 63 6f 6e 74 72 | 6c 52 65 63 74 20 3a 73 |rd.contr|lRect :s|
|00000ae0| 74 6f 72 61 67 65 20 3a | 70 6f 69 6e 74 65 72 29 |torage :|pointer)|
|00000af0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |).      |       (|
|00000b00| 70 2d 63 74 6c 2d 72 65 | 63 74 2d 68 73 63 72 6f |p-ctl-re|ct-hscro|
|00000b10| 6c 6c 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ll.     |        |
|00000b20| 20 28 72 72 65 66 20 70 | 2d 63 74 6c 2d 72 65 63 | (rref p|-ctl-rec|
|00000b30| 2d 68 73 63 72 6f 6c 6c | 20 3a 63 6f 6e 74 72 6f |-hscroll| :contro|
|00000b40| 6c 52 65 63 6f 72 64 2e | 63 6f 6e 74 72 6c 52 65 |lRecord.|contrlRe|
|00000b50| 63 74 20 3a 73 74 6f 72 | 61 67 65 20 3a 70 6f 69 |ct :stor|age :poi|
|00000b60| 6e 74 65 72 29 29 29 0d | 20 20 20 20 20 20 20 20 |nter))).|        |
|00000b70| 28 6c 65 74 2a 20 28 28 | 66 2d 70 74 2d 69 6e 2d |(let* ((|f-pt-in-|
|00000b80| 76 2d 73 63 72 6f 6c 6c | 2d 62 61 72 20 28 23 5f |v-scroll|-bar (#_|
|00000b90| 50 74 49 6e 52 65 63 74 | 20 70 74 2d 6c 6f 63 61 |PtInRect| pt-loca|
|00000ba0| 6c 2d 74 6f 2d 63 6f 6e | 74 61 69 6e 65 72 0d 20 |l-to-con|tainer. |
|00000bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000bd0| 20 20 20 20 20 70 2d 63 | 74 6c 2d 72 65 63 74 2d |     p-c|tl-rect-|
|00000be0| 76 73 63 72 6f 6c 6c 29 | 29 0d 20 20 20 20 20 20 |vscroll)|).      |
|00000bf0| 20 20 20 20 20 20 20 20 | 20 28 66 2d 70 74 2d 69 |        | (f-pt-i|
|00000c00| 6e 2d 68 2d 73 63 72 6f | 6c 6c 2d 62 61 72 20 28 |n-h-scro|ll-bar (|
|00000c10| 23 5f 50 74 49 6e 52 65 | 63 74 20 70 74 2d 6c 6f |#_PtInRe|ct pt-lo|
|00000c20| 63 61 6c 2d 74 6f 2d 63 | 6f 6e 74 61 69 6e 65 72 |cal-to-c|ontainer|
|00000c30| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c50| 20 20 20 20 20 20 20 70 | 2d 63 74 6c 2d 72 65 63 |       p|-ctl-rec|
|00000c60| 74 2d 68 73 63 72 6f 6c | 6c 29 29 29 0d 20 20 20 |t-hscrol|l))).   |
|00000c70| 20 20 20 20 20 20 20 28 | 6f 72 20 66 2d 70 74 2d |       (|or f-pt-|
|00000c80| 69 6e 2d 76 2d 73 63 72 | 6f 6c 6c 2d 62 61 72 20 |in-v-scr|oll-bar |
|00000c90| 66 2d 70 74 2d 69 6e 2d | 68 2d 73 63 72 6f 6c 6c |f-pt-in-|h-scroll|
|00000ca0| 2d 62 61 72 29 29 29 29 | 29 29 0d 7c 23 0d 0d 3b |-bar))))|)).|#..;|
|00000cb0| 3b 3b 20 46 6f 6c 6c 6f | 77 69 6e 67 20 63 6c 65 |;; Follo|wing cle|
|00000cc0| 61 6e 65 72 20 76 65 72 | 73 69 6f 6e 20 62 61 73 |aner ver|sion bas|
|00000cd0| 65 64 20 6f 6e 20 63 6f | 64 65 20 70 72 6f 76 69 |ed on co|de provi|
|00000ce0| 64 65 64 20 62 79 20 68 | 6f 6c 7a 40 75 72 7a 2e |ded by h|olz@urz.|
|00000cf0| 75 6e 69 62 61 73 2e 63 | 68 0d 3b 3b 3b 20 20 28 |unibas.c|h.;;;  (|
|00000d00| 44 69 65 74 65 72 20 48 | 6f 6c 7a 29 20 3a 0d 0d |Dieter H|olz) :..|
|00000d10| 28 64 65 66 6d 65 74 68 | 6f 64 20 66 2d 70 74 2d |(defmeth|od f-pt-|
|00000d20| 69 6e 2d 73 63 72 6f 6c | 6c 20 28 28 66 72 65 64 |in-scrol|l ((fred|
|00000d30| 2d 77 69 6e 64 6f 77 20 | 66 72 65 64 2d 77 69 6e |-window |fred-win|
|00000d40| 64 6f 77 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |dow).   |        |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000d60| 70 74 2d 6c 6f 63 61 6c | 2d 74 6f 2d 63 6f 6e 74 |pt-local|-to-cont|
|00000d70| 61 69 6e 65 72 20 69 6e | 74 65 67 65 72 29 29 0d |ainer in|teger)).|
|00000d80| 20 20 28 64 65 63 6c 61 | 72 65 20 28 6f 70 74 69 |  (decla|re (opti|
|00000d90| 6d 69 7a 65 20 73 70 65 | 65 64 29 29 0d 20 20 3b |mize spe|ed)).  ;|
|00000da0| 3b 0d 20 20 28 72 6c 65 | 74 20 28 28 70 2d 63 6f |;.  (rle|t ((p-co|
|00000db0| 6e 74 72 6f 6c 2d 72 65 | 63 6f 72 64 20 3a 43 6f |ntrol-re|cord :Co|
|00000dc0| 6e 74 72 6f 6c 52 65 63 | 6f 72 64 29 29 0d 20 20 |ntrolRec|ord)).  |
|00000dd0| 20 20 28 23 5f 46 69 6e | 64 43 6f 6e 74 72 6f 6c |  (#_Fin|dControl|
|00000de0| 20 70 74 2d 6c 6f 63 61 | 6c 2d 74 6f 2d 63 6f 6e | pt-loca|l-to-con|
|00000df0| 74 61 69 6e 65 72 20 28 | 77 70 74 72 20 66 72 65 |tainer (|wptr fre|
|00000e00| 64 2d 77 69 6e 64 6f 77 | 29 20 70 2d 63 6f 6e 74 |d-window|) p-cont|
|00000e10| 72 6f 6c 2d 72 65 63 6f | 72 64 29 0d 20 20 20 20 |rol-reco|rd).    |
|00000e20| 28 25 73 65 74 66 2d 6d | 61 63 70 74 72 20 70 2d |(%setf-m|acptr p-|
|00000e30| 63 6f 6e 74 72 6f 6c 2d | 72 65 63 6f 72 64 20 28 |control-|record (|
|00000e40| 25 67 65 74 2d 70 74 72 | 20 70 2d 63 6f 6e 74 72 |%get-ptr| p-contr|
|00000e50| 6f 6c 2d 72 65 63 6f 72 | 64 29 29 0d 20 20 20 20 |ol-recor|d)).    |
|00000e60| 28 6e 6f 74 20 28 25 6e | 75 6c 6c 2d 70 74 72 2d |(not (%n|ull-ptr-|
|00000e70| 70 20 70 2d 63 6f 6e 74 | 72 6f 6c 2d 72 65 63 6f |p p-cont|rol-reco|
|00000e80| 72 64 29 29 29 29 0d 0d | 0d 3b 3b 3b 20 44 6f 6e |rd))))..|.;;; Don|
|00000e90| 65 2e 0d 0d 28 70 72 6f | 76 69 64 65 20 22 46 2d |e...(pro|vide "F-|
|00000ea0| 50 54 2d 49 4e 2d 53 43 | 52 4f 4c 4c 22 29 00 00 |PT-IN-SC|ROLL")..|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 01 00 00 00 01 a2 | 00 00 00 a2 00 00 00 52 |........|.......R|
|00000f10| 1a 1a 14 16 1a 1a 10 13 | 1a 00 00 00 00 00 0c 1a |........|........|
|00000f20| 90 00 00 00 00 f0 00 0e | 00 00 ff f4 00 0c 00 0f |........|........|
|00000f30| 13 66 2d 70 74 2d 69 6e | 2d 73 63 72 6f 6c 6c 2e |.f-pt-in|-scroll.|
|00000f40| 6c 69 73 70 02 00 00 00 | 54 45 58 54 43 43 4c 32 |lisp....|TEXTCCL2|
|00000f50| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 50 00 00 |..TEXTCC|L2...P..|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 a6 b6 72 b0 00 00 | 0e 2e 00 00 01 f4 00 06 |....r...|........|
|00000f80| 00 26 40 00 00 00 00 01 | 80 00 00 00 00 00 00 00 |.&@.....|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 02 | 19 64 00 00 00 00 00 00 |........|.d......|
|00000fc0| 00 00 00 00 00 00 06 00 | 00 00 01 80 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 00 00 00 00 00 00 00 06 | 00 08 00 29 00 23 01 de |........|...).#..|
|00001030| 02 20 00 29 00 23 01 de | 02 20 00 00 00 00 00 00 |. .).#..|. ......|
|00001040| 01 8c 00 00 01 8c 00 00 | 00 00 01 00 00 00 00 10 |........|........|
|00001050| 00 15 06 4d 6f 6e 61 63 | 6f 06 47 65 6e 65 76 61 |...Monac|o.Geneva|
|00001060| 00 00 00 3e 00 02 00 04 | 09 00 00 03 09 01 01 00 |...>....|........|
|00001070| 00 00 02 00 00 ef 01 00 | 00 fd 02 00 03 51 01 00 |........|.....Q..|
|00001080| 03 5f 02 00 03 ce 01 00 | 03 dc 02 00 04 ce 01 00 |._......|........|
|00001090| 04 dc 02 00 08 54 01 00 | 08 62 02 00 0c 9b 01 00 |.....T..|.b......|
|000010a0| 0c a9 00 00 01 00 00 00 | 01 a2 00 00 00 a2 00 00 |........|........|
|000010b0| 00 52 00 7c 19 74 07 b8 | 00 00 00 1c 00 52 00 01 |.R.|.t..|.....R..|
|000010c0| 46 52 45 44 00 01 00 12 | 4d 50 53 52 00 00 00 2a |FRED....|MPSR...*|
|000010d0| 00 02 ff ff 00 00 00 60 | 00 00 00 00 00 03 ff ff |.......`|........|
|000010e0| 00 00 00 4c 00 00 00 00 | 03 ed ff ff 00 00 00 00 |...L....|........|
|000010f0| 00 80 f4 ac 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+